5 DIMS(15):DIMI(7)
7 CY=229
10 POKE53280,5:POKE53281,0
15 PRINTCHR$(147);CHR$(159)
20 V=53248
21 POKEV+21,0
22 INPUT"# OF ITERATIONS PER CYCLE";CY
23 IT=CY/6.26666666
24 PRINTCHR$(147)
25 TBL=13:MEM=TBL*64
31 POKEV+23,255:POKEV+29,255
35 FORI=2040TO2047:POKEI,TBL:NEXT
40 FORI=39TO46:POKEV+I,I-36
45 GOSUB85
46 POKEV+21,255
50 FORI=0TO62:READJ:POKEMEM+I,J:NEXT
60 K=K+1:IFK=CY+1THENGOSUB85:END
62 FORI=14TO0STEP-2
63 I(I/2)=I(I/2)+(INT(I/2)+1)/IT
65 S(I)=50*SIN(I(I/2))+160
70 S(I+1)=50*COS(I(I/2))+120
71 POKEV+I,S(I):POKEV+I+1,S(I+1)
75 NEXTI
80 GOTO60
85 FORI=0TO14STEP2:POKEV+I,160:POKEV+I+1,170:NEXT:RETURN
1000 DATA0,0,0,0,0,0,0,0,0
1010 DATA 0,255,0,3,129,192,6,0,48,12,0,24,24,0,12,48,0,6,48,0,6,48,0,6
1020 DATA 48,0,6,48,0,6,24,0,12,12,0,24,6,0,48,3,129,192,0,255,0
1030 DATA 0,0,0,0,0,0,0,0,0